home *** CD-ROM | disk | FTP | other *** search
- # demonstrates a bug in my stuff when creating widgets using parent values
- # the buttons are about the same width, when one should be 40x bigger
-
- # now fixed
- xtAppInitialize -class Program
-
- xmForm .r managed
-
- # xmPushButton .r.l1 managed -unitType 100th_millimeters -width 50000 -height 3000
- xmPushButton .r.l1 managed
-
- xmPushButton .r.l2 managed -unitType 100th_millimeters
- # xmPushButton .r.l2 managed
- .r.l2 setValues -width 20000
- .r.l2 setValues -topAttachment attach_widget -topWidget .r.l1
-
- . realizeWidget
-
- . mainLoop
-